The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48_1/bm

Text File | 1995-03-31 | 315b | 15 lines

@
@ Benchmark program
@ USAGE: arguments... 'Progname' BM --> time (Real number, in seconds)
@
%%HP: T(3)A(D)F(.);
@ Checksum: # 9FD4h
@ Bytes: 80.5        (When stored in a variable called BM)
\<< DEPTH 1 + TICKS
SWAP ROLLD EVAL
TICKS \-> ee
  \<< DEPTH ROLL ee
SWAP - B\->R 8192 /
  \>>
\>>